home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utmisc1
/
esclc20f.lha
/
EasyRexx
/
ShowNegative.erex
< prev
next >
Wrap
Text File
|
1996-03-31
|
519b
|
28 lines
/* script to change all negative numbers into RED */
options results
setpalette 3 15 0 0 /* make colour 3 red */
getsheetwidth /* find out the worksheet dimensions */
maxcol = result
getsheetheight
maxrow = result
do x = 0 for maxcol+1 /* loop through every cell */
do y = 0 for maxrow+1
getcelltype x y
if result ~= "STRING" then /* skip any string cell */
do
getcellvalue x y
if result < 0 then setcolour x y 3 /* less than 0? then set the colour to red */
end
end
end